<%@LANGUAGE="VBSCRIPT"%> <% ' FileName="Connection_ado_conn_string.htm" ' Type="ADO" ' DesigntimeType="ADO" ' HTTP="false" ' Catalog="" ' Schema="" Dim MM_IACCDA_STRING 'MM_IACCDA_STRING = "Provider=SQLOLEDB;Initial Catalog=IADA_CC_DB;Data Source=192.168.1.15;Persist Security Info=True;User ID=iaccdadw5929;Password=7sYywwm~lovt" 'MM_IACCDA_STRING = "Provider=SQLOLEDB;Initial Catalog=IADA_CC_DB;Data Source=192.168.1.15;Persist Security Info=True;User ID=iaccdadw5929;Password=7sYywwm~lovt" MM_IACCDA_STRING = Application("MM_IACCDA_STRING") %> <% Dim Dealer__MMColParam Dealer__MMColParam = "1" If (Request.QueryString("MemberID") <> "") Then Dealer__MMColParam = Request.QueryString("MemberID") End If %> <% Dim Dealer Dim Dealer_numRows Set Dealer = Server.CreateObject("ADODB.Recordset") Dealer.ActiveConnection = Application("MM_IACCDA_STRING") Dealer.Source = "SELECT MemberID, Email, FirstName, LastName, Company, Address1, Address2, City, State, Zip, Country, Phone_bus, URL, Years_bus, President, Vice_President, MemDesc, Authenticators, RefundPolicy FROM dbo.Member WHERE MemberID = " + Replace(Dealer__MMColParam, "'", "''") + "" Dealer.CursorType = 0 Dealer.CursorLocation = 2 Dealer.LockType = 1 Dealer.Open() Dealer_numRows = 0 %> <% Function GetContainsClause(strSearchString) Dim uq Dim isOK Set uq = NewUserQuery() isOK = uq.ParseTokens(strSearchString) If (isOK) Then isOK=uq.Validate() End if If Not isOK Then GetContainsClause = "" Else GetContainsClause = uq.GetMSSQLSearchStr() End If End Function Function RegExpReplace(FindPat,FindStr,ReplaceStr) Dim RERegExp Dim REResult Set RERegExp = New RegExp RERegExp.Pattern = FindPat RERegExp.IgnoreCase = True REResult = RERegExp.Replace(FindStr,ReplaceStr) RegExpReplace = RERegExp.Test(FindStr,ReplaceStr) Set RERegExp = Nothing End Function Function RegExpTest(FindPat,FindStr) Dim RERegExp Dim REResult Dim REResulted Set RERegExp = New RegExp RERegExp.Pattern = FindPat RERegExp.IgnoreCase = True REResult = RERegExp.Execute(FindStr) If REResult.Count > 0 Then For Each REResulted in REResult Response.Write "" & REResulted.Value & " was matched at position " & REResulted.FirstIndex & "
" Next Else Response.Write "" & RERegExp.Pattern & " was not found in the string: " & FindStr & "." End If Set RERegExp = Nothing End Function %> <% Dim ContainsClause Dim SearchString If Request.Form("SearchString") <> "" Then SearchString = Request.Form("SearchString").Item ContainsClause = GetContainsClause(SearchString) ContainsClause = "CONTAINS(*,'" & ContainsClause & "')" 'Response.Write(ContainsClause + "
") End If If Request.QueryString("SearchString") <> "" Then SearchString = Request.QueryString("SearchString").Item ContainsClause = GetContainsClause(SearchString) ContainsClause = "CONTAINS(*,'" & ContainsClause & "')" 'Response.Write(ContainsClause + "
") End If %>

[an error occurred while processing this directive]   Members Only   Noteworthy News   Collectors Corner   "" Then %>javascript:openChat('Chat/Login.asp','Chat');<% Else %>#<% End If %>" class="navleftlink">Live Chat   Office of Ethics <% Response.Write(Ad.GetAdvertisement("adside.txt")) %>   Search Directory Browse Directory Show All A B C D E F G H I J K L M N O P Q R S T U V W X Y Z   «« Go Back     <%=(Dealer.Fields.Item("Company").Value)%>   <%=(Dealer.Fields.Item("FirstName").Value)%><%=(Dealer.Fields.Item("LastName").Value)%> <%=(Dealer.Fields.Item("Address1").Value)%> <% If Dealer.Fields.Item("Address2").Value <> "" Then %> <%=(Dealer.Fields.Item("Address2").Value)%> <% End If %> <%=(Dealer.Fields.Item("City").Value)%> <%=(Dealer.Fields.Item("State").Value)%> <%=(Dealer.Fields.Item("Zip").Value)%> Phone: <%=(Dealer.Fields.Item("Phone_bus").Value)%> Years In Business: <%=(Dealer.Fields.Item("Years_bus").Value)%> Officers   President: <%=(Dealer.Fields.Item("President").Value)%>   Vice President: <%=(Dealer.Fields.Item("Vice_President").Value)%> Refund Policy <%=(Dealer.Fields.Item("RefundPolicy").Value)%> ">Send Email Description <%=(Dealer.Fields.Item("MemDesc").Value)%> Authentication Information <%=(Dealer.Fields.Item("Authenticators").Value)%> [an error occurred while processing this directive]

<% Dealer.Close() Set Dealer = Nothing %>